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MODULE CLENUP ( 
ANGUAGE (BL 15832), 
DENT = 'v04=000 


~~ 


BEGIN 


! 
PEPE SS EIST ET ITT TTT TTT TTT TTT Creer eer c ii c iii c titi t iii i iti iii i iiiit. 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'@ ALL RIGHTS RESERVED. 

!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

hy 9 at ad NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eeePORAT ie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i 
® 
® 
® 
a 
® 
® 
o 
® 
® 
tt 
® 
® 
® 
® 
® 
® 
+ 
® 
' * 
PEPE SECS ESS S SESS SSCP PTT TTT TTT eT TTT Tee eect icici i iii i iiiiiit 
++ 

FACILITY: FIIACP Structure Level 2 

ABSTRACT: 

This module performs the necessary cleanup after an operation. 
ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


' AUTHOR: Andrew C. Goldstein, CREATION DATE: 6-Jan-1977 23:53 
MODIFIED BY: 


v03-034 CDS0022 Christian D. Saether 30-Aug-1984 
Allow for multi-header directory files. 
move orrer cleanup remove possible bias on primary_fcb 
refcnt. 


v03-033 CdS0021 Christian D. Saether 23-Aug-1984 


' 
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i 
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i 
i 
! 
i 
= 
i 
i 
i 
{ 
i 
i 
i 
i 
i 
i 
i 
i 
$ Move code that marks FCB stale to a routine in LOCKERS. 


sR ACN ; 
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v03-032 ¢dS0020 Christian D. Saether 13-Aug-1984 
Add code to mark primary fcb stale clusterwide. 


v03-031 CDS0019 Christian D. Saether 7-Aug-1984 
Cleanup potential directory index cache block 
when deleting a file. 


v03-030 CdS0018 Christian D. Saether 1-Aug-1984 


FSSSSOSS 


WN] C$ OONOULW—OO0W 


67 poof test for directory fcb. 
68 06 Add SET_DIRINDX routine. 

$9 Add NUKE_PRIM_FCB routine. 

0 Modify ZERO_I 


NN 


V03-029 ACG0438 Andrew C. Goldstein, 19-Jul-1984 17:55 
Add cluster-wide ppec *et cache interlock logic. 


oon 
ow 
SOoooQooooooooo°ooo 


oooo 


74 0074 Condition DELETEACL calls on non-empty ACL. 
Le Bere Use central dequeue routine. = 
77 007 v03-028 CDS0017 Christian D. Saether 25-May-1984 
78 0078 Call KILL_BUFFERS routine to flush cache in 
6 ait certain situations when not in a cluster. 
81 0081 v03-027 CDS0016 Christian D. Saether 99-May-1984 
: oe Release allocation lock prior to calling send_symbiont. 
84 0084 v03-026 CDS0015 Christian D. Saether 44-May-1984 
85 0085 No not map notrunc into nowrite. 
a6 Bone Add bugcheck if access lock conversion fails in make_deaccess. 
88 0088 v03-025 CDS0014 Christian D. Saether 33-May-1984 
89 0089 Call CONV_ACCLOCK to remove possible access lock 
a 030 when dealTocating fcb's. 
g 009 v03-024 ¢CDS0013 Christian D. Saether 19-Apr-1984 
a B28 Changes to FCBSW_ACNT handling. 
95 095 v03-023 ACG0415 Andrew C. Goldstein, 5-Apr-1984 21:27 
Bos Interface change to ACL_DELETEACL 
0098 V03-022 ACG0408 Andrew C. Goldstein, 23-Mar-1984 11:20 
0 Make rest of global storage based 
v03-021 CDS0012 Christian D. Saether 99-Mar-1984 


33 in bug trap to catch possible double remque of 


v03-020 CDS0011 Christian D. Saether 23-Feb-1984 
Use new WRITE_DIRTY routine to replace FLUSH_BUFFERS. 
Remove references 8 FLVen D. 
Replace FLUSH_FID (0) with KILL_CACHE calls. 


CDS0010 Christian D. Saether 27-Dec-1983 
Use L_NORM Linkage. 
Use BIND_COMMON macro to reduce external declarations. 


v03-018 CDS0009 Christian D. Saether 23-Nov-1983 | 
| 


| 
| 
| 
| 
| 
| 
| 
| 
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If DIR_FCB is the same as PRIMARY_FCB, do not return 
the FCB until the end of cleanup Tas PRIMARY_FCB, not 
Move cleanup of DIR_FCB until after all i/o is done. 
Remove REMOVE_FCB routine (kernel call not necessary). 


V03-017 LMP0164 L. Mark Pilant, 10-Oct-1983 15:22 
Delete the in-core ACL if doing an FCB fixup. 
v03-016 C6S0008 Christian D. Saether 3-0c t-1983 


Handle CURR_LCKINDX in ore ssoeme Don't read 
headers without appropriate serial locks. 


v03-015 CDS0007 Christian D. Saether 14-Sep-1983 
Take out deqall hack now that RMS does it's own 
root locks again. 


ean tees 


NO o 


due to sublocks, then redo the file access dequeue. 


v03-006 LMP0071 L. Mark Pilant 19-Jan-1983 20:49 
Correct a problem that caused ACL segments to be left Laying : 
around when a directory FCB was flushed. 


| 
Perform a DEQALL if file access lock dequeue fails | 


v03-014 CDS0006 Christian D. Saether 27-Jul-1983 
Change interface to SEND_SYMBIONT. 

v03-013 LJKO199 Lawrence J. Kenah 27-Apr-1983 
; Do not credit FILCNT when giving back shared window 
3 v03-012 CDS0006 Christian D. Saether 28-Apr-1983 
Z Clear DIR_ENTRY when DIR_FCB is cleared. 
4 v03-011 CDS0005 Christian D. Saether 21-Apr-1983 
: Change interface to TRUNCATE routine. 
4 v03-010 CDS0004 Christian D. Saether 19-Apr-1983 
4 Bug check on unexpected lock manager errors. 
¢ Clear ACCLKID field in window. 
4 v03-009 ACG0323 Andrew C. Goldstein, 12-Apr-1983 14:09 
: Add extended file name to back Link fixup 
5 v03-008 STJ3069 Steven T. Jeffreys, 23-Mar-1983 
3 Use the ERASE_REQUESTED parameter of RETURN_BLOCKS. 
2 v03-007 CDS0003 Christian D. Saether 7-Mar-1983 
5 
5 
5 
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v03-005 ACGO208 Andrew C. Goldstein, 14-Jan-1983 15:02 
Fix FCB Linkage consistency problems 
v03-004 CDS0002 Christian D. Saether 3-Jan-1983 
$6 Always flush header cache until it is restored for xaqp. 
68 v03-003 LMP0059 L. Mark Pilant, 21-Dec-1982 12:23 
§ Aiveys create an FCB when accessing a file header. This 
y eliminates a lot of special case FCB handling. 
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err 
me 


FORWARD ROUTINE 
LEANUP NORM, ' normal cleanu 
ZERO_WINDOWS ! invalidate all windows of file 
ZERO { ! initialize directory index 

° cleanup after error 

' clean out the file ID cache 


“NORM, 
“NORM NOVALUE 
NORM 


NO deaccess the file 

NORM, deallocate extension FCB's 

NORM zero user franees pointer 
_/SB {ARG, ' test for directory index | 
NORM NOVALUE; ! deallocate primary fcb 


SET _BIRINDX 
NUKE _HEAD_F CB 


s 7 o176 1! 

; \t? 0174 : } MAKE _DEACCESS dequeues access lock. 

> 175 175 1! vO3-001 LMP0036 L. Mark Pilant, 17-Aug-1982 10:45 

: 176 8128 1} If the ACL was built using a dummy FCB, dismantle and 

; ivi gif : deallocate the ACL. 

; ; 
: 179 $199 1! V02-024 ACG0259 Andrew C. Goldstein, 26-Jan-1982 19:12 

3 19 Bigs : } Add mode arg to REMOVE 

3 136 O18, 1! V02-023 ACG0247 Andrew C. Goldstein, 23-Dec-1981 20:26 

3 ie? O14 } Make /NOCACHE flush all caches 

s 389 0185 1! VO2-022 ACG0245 Andrew C. Goldstein, 23-Dec-1981 20:26 

; 196 big8 : Send spool file to print during cleanup 

; 188 0188 1! V02-021 ACG0244 Andrew C. Goldstein, 23-Dec-1981 20:14 

3 133 b188 : Do buffer flush before deallocating control blocks 

; 6191 0191 1! vO2-020 LMP0003 L. Mark Pilant, 30-Nov-1981 16:40 

§ 136 Bi38 : Properly cleanup any cathedral windows. 

: 194 0194 1! v02-019 ACG0208 Andrew C. Goldstein, 11-Nov-1981 17:51 

; 13? Bi32 ; Add segmented directory record support | 
: 197 0197 1! v02-018 ACGO168 Andrew C. Goldstein, 7-May-1980 18:22 
$ bs B35 ; Fix last block directory cleanup on delete failure | 
; 200 0200 1! v02-017 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 

s $9) 0201 1! Previous revision history moved to F11B. REV | 
: 202 os06 1 ine 

: 203 0203 1 

; 204 0204 1 

s 209 0205 1 LIBRARY Bs ad | Ce 

; 206 0206 1 REQUIRE 'SRC$:FCPDEF.B32'; 

s « 1197 1 

; @ 1198 1 

gs « 1199 1 

p< ‘$99 1 

, @ 1201 1 

; 1 4 1 

; 1203 1 
3 1206 1 

: 1305 1 | 
3 1 $ 1 

: 1207 1 

3 1208 1 

3 1209 1 


ee ed ed ed etd sd = OOO 
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: L-NORM, 
ACCESS : L_NORM, 
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GLOBAL ROUTINE CLEANUP : L_NORM = 


lee 
1 


FUNCTIONAL DESCRIPTION: 


This routine performs the cleanup needed after a successfully 
completed file operation. 


i CALLING SEQUENCE: 
CLEANUP () 


! IMPLICIT INPUTS: 
CLEANUP_FLAGS: indicate specific actions to do 
PRIMARY_FCB: FCB o € 
CURRENT_WINDOW: window of file 
DIR_FCB: FCB of directory 
CURRENT_VCB: VCB of volume in process 


' 

1 

i] 

i] 

i] 

1 

i] 

i] 

1 

| 

! 

1 

1 

1 

' 

IO_PACKET: 1/0 packet of request 
i QUTPUT PARAMETERS: 
NONE 
| 

' 

1 

i] 

i] 

! 

i] 

i] 

i] 

1 

1 
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i INPUT PARAMETERS: 
NONE 


a ee ee ee ee ee ee ee ee ee ee ee SS» 
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PROPOR oNoRoNoNONONONOPONONONOPONIPYNS 2 2 9 2 


2 
2 
2 
2 
; 
; 
24 ! IMPLICIT OUTPUTS: 
st NONE 
2 ' ROUTINE VALUE: 
§ NONE 
§ ' SIDE EFFECTS: y 
FCB*s and windows deleted when appropriate 
§ header written 
§ FCB updated 
2 aia 
36 BEGIN 
6 5 
26 51 LOCAL 
26 26 CLUSTER ' are we a cluster 
see : QUOTA_CACHE REF BBLOCK, ! address of quota cache 
65 4 FCB REF BBLOCK, ! Local FCB pointer 
$06 55 vcB : REF BBLOCK, ! local VCB pointer 
67 56 RVT : REF BBLOCK, ! Local RVT pointer | 
$08 57 UCB : REF BBLOCK, ' Local UCB pointer 
$3 3 HEADER REF BBLOCK; ! file header | 
71 60 BIND_COMMON; 
1 61 
7 66 DIR_CONTEXT_DEF; 
74 6 
75 64 EXTERNAL 
$78 $2 CLUSGL_CLUB : ADDRESSING_MODE (ABSOLUTE); 
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CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START); 
CONTEXT_SAVE = 03 


oo 


78 67 EXTERNAL ROUTINE 

79 68 E_FCB STALE +: L_NORM NOVALUE, ! mark fcb as stale clusterwide 

80 $2 KILL- BUFFERS : LLNORM NOVALUE, ! invalidate specified buffers 

81 0 KILL CACHE : LINORM NOVALUE, ! invalidate all buffers for ucb | 
8 71 WRITE DIRTY : LINORM, : write all dirty buffers 
8 ie; SWITCR_VOLUME _: L_NORM, ' switch to desired volume 
8% 78 FLUSH.QUO_CACHE : L7NORM: i flush the quota cache | 
86 75 
87 76 | eee Note: The primary header of the current file is not necessarily 

88 77 ! resident at this point. 

89 78 

90 79 

$3 HY S ever necessary on secondary context). 
g 8 
94 HA IF .CONTEXT_SAVE NEQ 0 
95 84 THEN 
96 85 BEGIN 
97 86 CHSMOVE ( 

8 7 

9 8 

9 
0 


— ~CLUSGL_CLUB NEQ 
CLUSTER = 1; 


! Check the entire volume set to see if the index file or storage map 

! on any volume is write accessed. If so, flush the buffer pool of an 

of their blocks, and flush the file ID and extent caches as appropriate. 
i 


' 
' 
3 | 
Switch back to the primary context area if necessary (no normal cleanup 
t 

Also, if the volume is mounted /NOCACHE, flush the entire buffer cache. | 


RVT = .CURRENT_VCBCVCBSL_RVTI; 
INCR J FROM 1 TO 
BEGIN 
IF .RVT EQL .CURRENT_UCB 
THEN (UCB = .RVT; 
LSE -RVTCRVT$B_NVOLSJ 


BEGIN 

IF .RVT NEQ .CURRENT uce 

THEN UCB = .VECTOR CRVTCRVT$L_UCBLSTJ, .J-1); 
IF .UCB NEQ 0 


SWOONOUSWN “OO VOUS WN oO 


dO 
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a a ee ee ee ee a ee a ee ee ee ee ee ed a dd ed 


CLUSTER = 0; 
: IF .BBLOCK CCURRENT_UCB CUCBSL_DEVCHARZI, DEV$V_CLUJ 
2 
2 
; 
4 
4 
4 
4 
4 
; 
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! If someone has the quota file write accessed (and it is active), flush it 
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from the buffer pool. (Note that the quota file is located on RVN 1.) 


QUOTA CACHE = ,VCBLVCBSL_QUOCACHE); 
LF -QU0TA_CACHE NEQ 0 


Write modified buffers. The various cache purges above may have 
created more dirty buffers than we had at the start of this routine. 
No more dirty buffers can be created for the remainder of this request. 


PROD TOO 


WRITE_DIRTY (0); 


é 
8 
9 
40 EN 
41 IF TESTBITSC (QUOTA_CACHECVCASV_CACHEFLUSH)) 
rk THEN 
4 BEGIN 
44 SWITCH VOLUME (1); 
rF FLUSH_GUO_ CACHE ($; ! may create modified buffers 
49 END; : ! of this is RVN 1 (or single volume) 
38 ! If the volume is marked for dismount or nocache, flush out all the 
350 ! caches. 
2 : 
328 If .BBLOCK CUCB CUCBSL_DEVCHAR], DEV$V_DMT) 
354 OR .VCBCVCBSV_NOCACHE J 
355 THEN 
356 BEGIN 
357 SWITCH_VOLUME (.J); 
358 WRITE BIRTY (0); : 
$2) KILL CACHE (UCB); ! we cannot use the block cache after this 
361 END; 
3 . END; 
3 
; | 
370 
3 H Invalidate any windows on the file, if requested. 
37 : 
374 IF TESTBITSC (CLEANUP_FLAGSCCLF_INVWINDOW]) 
$2 THEN KERNEL_CALL (ZERO_WINDOWS, -PRIMARY_FCB); 
377 ' If a directory fcb is left Lying about with no use, dispose of it. 
78 ! If the directory file is write accessed, flush the buffer pool of any 
79 ' blocks that might be resident. Also flush the directory index. 
Cleanup of these fcbs is deferred until all possible errors in the 
} 


cleanup procedure (i/o errors) have already had an opportunity to happen. 
| 


IF (FCB = .DIR_FCB) NEQ 0 
THEN 


BEGIN 
IF FCB CFCBSWREFCNT] EQL 0 


BEGIN 
IF .FCB NEQ .PRIMARY_FCB 
THEN 
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} 
; 39 1381 4 IF NOT SET_DIRINDX (.FCB) ; 
Fs 9 1 § 4 THEN ; 
3 5% 1 BEGIN : 
; 395 1384 DEL_EXTFCB (.FCB); : 
: %6 1385 NUKE_HEAD_FCB (.F CB); | : 
; FF 1 56 4 D; : 
; 98 1 4 ‘ 
: 399 13588 4 END : 
; 400 1389 4 : 
; 401 1390 3 ELSE | : 
; 40 1391 4 BEG! ‘ 
; 40 1 3 4 IF_.FCB CFCBSW_WCNT] NEQ 0 : 
> 404 1395 4 THEN | : 
; 405 1394 2 BEGIN : 
: 406 1395 SWITCH VOLUME (.FCB CFCBSW_FID_RVNJ); ; 
: 407 1396 5 IF NOT .CLUSTER : 
; 408 a4 5 THEN : 
; 409 1398 5 KILL_BUFFERS (1, .FCB CFCBSL_LOCKBASIS)); : 
: 410 1399 5 ZERO_IDX (); : 
; 411 1400 4 END; | : 
: sig 1401 END; : 
3: «(41 1008 ; 
; 64416 140 ! Guarantee that no further attempts will be made to do any directory ; 
: 415 1404 : related cleanup. This cleanup code was moved beyond the buffer : 
; 4616 1405 ! cleanup to avoid the same situation, but clearing the cleanup flags : 
; 417 1406 ! makes sure. : 
: «4418 1407 ! : 
: 419 1408 ° 
: 420 1409 CLEANUP_FLAGS CCLF_SUPERSEDE) = 0; : 
: $s) 1410 CLEANUP_FLAGS CCLF_REENTER) = 0; | ’ 
3; 4 ¢ 1411 CLEANUP_FLAGS CCLF_REMOVE] = 0; ° 
3 $s 1256 DIR_FCB = 0; ° 
3 424 141 DIRTENTRY = 0; : 
; 425 1414 3 : 
; 426 1415 § END; ‘ 
: 427 oR : 
; 428 141 2 If (FCB = .PRIMARY_FCB) NEQ 0 . 
i 499 1418 2T : 
3; 450 1419 BEGIN . 
; 431 1420 : ; ‘ 
3; 432 1421 !' Check if the fcb has been modified and if so, and this is a cluster, : 
; 433 1056 : cause potential fcbs on other nodes to be marked as stale so they | ; 
3 rir 1os? will know to rebuild their fcb chains from the file header(s). : 
3 13% 1425 | : 
3s 637 1426 IF .CLEANUP_FLAGS CCLF_MARKFCBSTALE) ; 
> 438 1407 AND .CLOSTER : 
; 439 1428 HEN . 
: 440 1499 MAKE_FCB_STALE (.FCB); | ; 
3 442 1431 ! If an FCB is left about with no use, dispose of it. 3 
3 443 1636 ! Check whether it is a directory fcb first. 3 
> 444 143 : 
3 6445 1434 : 
3; 6646 1435 IF .FCBCFCBSW_REFCNT] EQL 0 : 
3; 447 1oe8 : 
3; 448 143 IF NOT SET_DIRINDX (.FCB) : 


$6 
s 


; 449 ot 3 THEN 
; 450 1439 4 
>; 451 1440 4 
3; 6 ¢ 1441 4 
; 45 ets 4 
>; 454 1443 4 
; 455 1444 & 
; 456 1445 4 
s 457 1446 
; 458 1447 END; 
; 459 1448 
; 460 1449 RETURN 1; 
: 461 1450 
; 462 1451 1 END; 
6A 36 


94 


94 


BEGIN 
DEL_EXTFCB (.FCB); 
NUKE_HEAD_FCB (.FCB); 
PRIMARY_FCB = 0; 


0B 

58 0000G CF 
58 OODC =«=CCA 
AR 

08 

AA 36 
36 = AA 

59 


50 94 AA 
08 3¢ 
000000006 


AO 
oF 
03 
59 01 
50 98 AA 
52 20. 
AA 5 
ace 
57 34 
04 
57 08 4 
5 
4A 
AA 8 
54 40 a 
‘ 
55 34 AG 
01 33 
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! end of routine 
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CLEANUP 


CLENUP 
\V04-000\ 


CLUSGL_CLUB, MAKE_FCB_STALE 
KILL_BOFFERS, KILC CACHE 
WRITE_DIRTY, SWITCR_VOLUME 
FLUSH_QU0_CACHE 
SCODES,NOWRT,2 


LEANUP, Save R2,R3,R4,R5,R6,R7,R8,R9,R11 
ITCH_VOLUME, R11 
O(BASE), R8 


Ww 
20(BASE), 
4 BASE) 
54, 54(BASE), (BASE) 
4 (BASE) 

CLUSTER 

51OB(BASED . RO 
a#CLUSGL_CLUB 

#1, CLUSTER 
-164 (BASE) 


RO 
32(RO), RVT 
RyT, -108 (BASE) 


9$ 
RVT, -108(BASE) 


64(RVT)CJJ, UCB 
CB 


$ 
§2(UCB), VCB 
J, wi 
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16-Sep-1984 00:02:25 VAX-11 Bliss-32 V4.0-742 Page 10) 
13-88-1382 90:98:93 DISKSVMSMASTER:CF11X.SRCICLENUP.B32; 1 9 (2) 
56 5c 36 AS) =O 00064 MOVL (VCB), QUOTA_CACHE : 1327 
, Y 0 68 BEQL +1 8 
OA 0B AG 1 € A BBCC #1, 11(QUOTA_CACHE), 7$ + 1330 
1 Dd 00 oF PUSHL #1 : 1333 
68 1 FB 00071 CALLS #1, SWITCH_VOLUME : 
00006 CF Q FB 00074 CALLS #9, FLUSH QUO CACHE : 1334 
9 A Ad EO Th 7$: BBS #5, 58(UCB), LH 3 1348 
1 3 AS . = 3 BBC #1, 83(VCB). 9$ + 134 
3 DD 00083 8s PUSHL J : 1346 
6B 91 FB 00085 CALLS #1, SWITCH_VOLUME : 
E D4 00088 CLRL = + 1347 
00006 CF gi FB OO08A CALLS #1, WRITE_DIRTY : 
4 DD O008F PUSHL : 1348 
00006 CF 01 FB 00091 CALLS #1, KILL CACHE : 
B2 53 57 F3 00096 9$ AOBLEQ R7. J, 5$ : 1303 
7E D4 OO09A CLRL. = (SP + 1358 
00006 CF 01 FB 0009C CALLS #1, WRITE_DIRTY : 
08 6A 04 €5 OOOAI BBCC #4, (BASEY, 10$ : 1363 
08 AA DD O00AS PUSHL AS + 1364 
0000v CF 01 FB 0008 CALLS #1, ZERO_WINDOWS ; 
53 00D0 =A 00 QOOOAD 10$:  MOVL 208(BASEY, FCB + 1373 
50 13 000B2 BEQL 14$ : 
18 A3 85 000B4 TSTW  24(FCB) : 1376 
1F 12 00087 BNEQ 11$ : 
08 AA 53 D1 00089 CMPL FCB, 8(BASE) + 1379 
37 13 0008D BEQL 4 ©-:13$ ; 
50 53 06 000BF MOVL FCB, RO + 1381 
0000v 30 000¢e BSBW SET_DIRINDX ; 
2€ 50 €E8 000C BLBS RO, ~13$ : 
53 DD 900¢8 PUSHL FCB + 1384 
0000v CF 04 FB OOOCA CALLS #1, DEL_EXTFCB : 
3 DD OOOCF PUSHL FCB + 1385 
0000v CF 01 FB 900" CALLS #1, NUKE_HEAD_FCB ; 
3 11 00006 BRB 13$ : 1376 
es 83 00008 11$ TSTW  28(FCB) : 1392 
19 13 00008 BEQL 4 §=-13$ F 
7E 28 a3’ 3C 000DD MOVZWL 4O(FCB), =(SP) : 1395 
6B 01 Fe 9006 | CALLS #1, SWITCH VOLUME : 
OA 9 E8 OO0E4 LBS CLUSTER, 12$ : 1396 
4C A3 DD O00E7 PUSHL 76(FCB) : 1398 
01 DD OOOEA PUSHL #1 : 
00006 CF 08 FB OOOEC CALLS He KILL_BUFFERS ; 
0000v CF 00 FB OO0F1 128 CALLS @ ZERO IDX : 1399 
6A 00C09020 BF CA QODFG 138 BICL2 ais 94%, (BASE) : 1411 | 
0D0 CA D4 000FD CLAL 08 (BASE) : 141g. 
08 AB D4 9191 CLRL (RB) > 1413, 
53 08 AA bg 0104 14$:  MOVL (BASE), FCB : 1417 | 
D 13 00108 BEQL 16$ : 
OA 6A : E1 0010A BBC #14, (BASE), 15$ > 1426) 
07 £9 0105 BLBC CLUSTER, 15$ t 1427 | 
3 DD 0011 PUSHL FCB 3 1429 | 
0000G CF 01 FB O113 CALLS #1, MAKE_FCB_STALE ; 
18 «AS - 0118 15$: TSTW  24(FCB) > 1435. 
1A O18 BNEQ 16$ : | 
50 53 p 11D MOVL FCB, RO > 1437 | 
0000v 0120 BSBW SET _DIRINDX ; 
11 E8 001 BLBS RO, 716$ ; 


= 


or 


; Routine Size: 


315 bytes, 


0000v CF 
0000v CF 
50 


Routine Base: 


SCODES + 0000 


1$-60-1964 09:09:25 vate]t iss 
NUKE _HEAD_FCB 


# 
8 (BASE) 
#1, RO 


FER-CHTIN SRE ICLENUP.B32:1°"" (3) 
; 1441 


F 12 | 
16-Sep-1984 00:02:25  - VAX=11 Bliss-32 v4.0-742 P 2. 
18-88-1382 90:95:93 DISKSVMSMASTER=CF1IX.SRCICLENUP.B32:1 > ay 


' 


C 


se 
t 3% 


: 464 14 3 1 GLOBAL ROUTINE ZERO_WINDOWS (FCB) : L_NORM = 

: 465 1453 1 
ets) aes yi’ | 
; 46 1456 | | FUNCTIONAL DESCRIPTION: | 
: £36 14 8 1 i This routine invalidates all windows cerrentty in use on the 

; $f) 1023 ! indicated FCB. This routine must be executed in kernel mode. | 
6 . | 
; 47 1461 1 ! CALLING SEQUENCE: 

; ere 146¢ ZERO_WINDOWS (ARG1) 

: 47 1464 1 | INPUT PARAMETERS: 
; ry A 149? ! ARG1: address of FCB | 
: 479 1269 1 ' IMPLICIT INPUTS: | 
3 ret re ! CURRENT_WINDOW: address of caller's window, if any 

: 48 1470 1 | OUTPUT PARAMETERS: | 
: 48s 147 NONE 

: 485 1298 1 | IMPLICIT OUTPUTS: 

5 eB ite 
488 1476 1 | ROUTINE VALUE: | 
: 190 1298 1 i — 

: 491 1479 1! SIDE EFFECTS: 

; (49 1339 1! all windows marked empty, caller's turned 

> 49 1481 1: | 
: 4694 1488 1 i-- 
: 495 1483 1 

: 6% 1484 2 BEGIN 

: re 12ba MAP | 
; 499 1487 FCB : REF BBLOCK; | 
; 264 1489 2 LOCAL 
: 206 1490 P : REF BBLOCK, ! window pointer 

; 50 1491 DUMMY, ! dummy sturage for REMQUE return 

: 504 1636 WINDOW_SEGMENT : REF BBLOCK, ‘! pointer to window segment 

; 4 1633 NEXT_SEGMENT : REF BBLOCK; ! pointer to window after next one 

: 307 1495 BASE_REGISTER; 

: 509 1497 2 EXTERNAL ROUTINE 

: 319 Hrs 4 DEALLOCATE : L_NORM; ' deallocate dynamic memory 

; 31 1500 ! Loop through the window List off the FCB, zeroing all the retrieval pointer 

: gi? 1308 counts. Then turn the user's window to VBN 1 if it exists. 

: 515 150 

; ‘i 1304 P = .FCBCFCBSL_WLFLI; 

; 18 1306 UNTIL .P EQL FCBCFCBSL_WLFLJ DO 

: 520 1508 PLWCBSW_NMAP) = 0; 


1$-eo-1966 00:02:25 vaNed at iae-32 v4. 0-76 


an 


3 
REICLENUP.B32;1° °° (3) 


“eloote. = .PCWCBSL_LINK); 
WINDOW SEGMENT EQL~ 


- WINDOW SEGMENTCWCBSL_LINKI; 
ay nT DURRY) ; 


SEGMENT) 
ONERT SEGMENT; 


Ps 
= 

oa 
om 


: wcest: ee 
p= nto COMPLETE). = 0; 
QCBSL_WLFLI; 


! seee Note: When handling of window misses goes into its final form, 

i this routine must also scan the 1/0 Queue on the UCB and look for 1/0 
i into the blocks just deallocated. ALl such requests must be yanked out 
i of the queue and routed to the ACP for error processing. 


RETURN 1; 
END; ! end of routine ZERO_WINDOWS 


ae a ts ts a ts a tb a ne a 4 


=PONINPINPIPINPIPININWN BB BE Pt 


SOOWONA UES WN —"OOONOUE WOO 


~-EXTRN DEALLOCATE 


—— 
wns 
oul 
rn 


003C 00000 ENTRY ZERO_WINDOWS, Save R2,R3,R4,R5 2 
50 04 aC DO 00002 MOVL FCB, -R : 
52 10 AO 00 00006 MOVL V6<RO) . : 
50 06 AC 10 C1 O000A 1$ ADDL3 #16, reat R RO : 15 
50 32 D1 O000F CMPL ~=séP,y RO ; 
28 13 00012 BeQL «ss $ : 
16 A2 B4 00014 CLRW g(P) : 1508 
53 20 A 0 00017 MOVL (P), WINDOW SEGMENT : 1509 
13 13 0001B 2$ BEQL $ > 1510 
54 20 Ad 00 9001p MOVL 2 (WINDOW SEGMENT) . NEXT_SEGMENT : 1513 
55 g OF 00021 REMQUE (WINDOW SEGM , DUMMY : 1514 
DD 00024 PUSHL uinDow OSEG cnENT + 1515 
00006 CF 01 FB 00026 CALLS #1, DEALLOCATE ; 
53 54 00 00028 MOVL § NEXT_SEGMENT, WINDOW_SEGMENT + 1516 
EB 11 0002E BRB @ : 1510 
20 A bs 0030 3$: CLRL <P) : 1518 
0B 4g 23 A BS BICB2 #32, 11(P) : 1519 
5 62 DO 000 MOVL (P). P ; 1320 
CE 11 OO03A BRB 1$ : 15 
50 07 00 900 C 4$ MOVL #1, RO : 13¢8 
04 0003F RET : 1530 


3; Routine Size: 64 bytes, Routine Base: S$CODE$S + 0138 


<- 


=1984 00:02:25  VAX#11 BLiss-32_v4.0-742 14 
~138t 93:98:93 Peek tal State eRe acenue.eses1°% «24 


GLOBAL ROUTINE ZERO_IDX : L_NORM NOVALUE = 


'o¢ | 
i 


SIDE EFFECTS: 
directory index zeroed 


44 
rf 
23 
rt FUNCTIONAL DESCRIPTION: 
50 i This routine initializes the index in a sade gt At FCB to an unknown 
23 i state. It will be rebuilt with the next several lookups. 
¢ i It also bumps the sequence count to indicate a change in contents. 
4 4 i 
i 4@ 1 | CALLING. SEQUENCE: | 
: 4 i ZERO_IDX 
5 4 i 
58 4 i INPUT PARAMETERS: 
59 “ NONE 
i IMPLICIT INPUTS: | 
DIR_FCB: directory FCB to init | 
i OUTPUT PARAMETERS: 
NONE 
ica I ten 
i 
ROUTINE VALUE: 
1 
i 
i 
i 
le 


BEGIN 

BIND_COMMON; | 
LOCAL | 
DIRINDX : REF BBLOCK FIELD (DIRC); 
DIR_FCBCFCB$W_DIRSEQ] = .DIR_FCBCFCBSW_DIRSEQ) + 1; | 
IF (DIRINDX = .DIR_FCB CFCBSL_DIRINDX]) NEQ 0 
DIRINDX CDIRC$W_INUSE) = 0; 

END; ! end of routine ZERO_IDX 
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ee a et =  —s —) — —s  » 2 Ss 2s SS SS ss ss as 8 a SY Ss SS 
See eal SLE N LN Nha ahah 4h 4h 4b 4b 4b 4b 4h Ah dh dh dh Ab A ah ah ah ah ah db ah dh eh ah dh ah dh a ad ad ad a aa a ea) 


NNN NSA AA AAA AAAS 
DONAUS WN $9 ODNAUES WN (OO DNAUES WN HO OONOUES WHO OONOUL WN 


SYLSLSLS SVMS IIIS SS SSS SOS AAT 

SSSR SSSR ASSES sao SSSI SFS2CS 

RIP IPAIPINIPIPIPIPDIIND\IIY a i kk td at td 2 2 2 ot 2 
“4 


~ENTRY IDX, Save nothin 
MO ASES, RO . 


Se eeeee 
— aa 
va 
Nw 
nN 


BASE), RO 


voe-800 1E-RSec198¢ 99:08:93 YMScLTWBALSHEH2cY 418° accenue.o32: 429 
50 0080 63 0 at poy 1Z6(R0) DIRINDX : 


6 Br ig CLRW (DIRINDX) 
4 18 1$: RET 


; Routine Size: 25 bytes, Routine Base: $CODE$S + 0178 
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16-Sep-1984 00:02: VAX-11 Bliss-32 V4.0-742 Pp 16 
12-Sep-19 4 99:98:93 DISKSVMSMASTER:CF1IX.SRCICLENUP.B32:1. > (5) 


ty GLOBAL ROUTINE ERR_CLEANUP : L_NORM = 
95 'e¢ 
4] a 
: FUNCTIONAL DESCRIPTION: 
239 This routine performs the cleanup needed after a file 
eis operation that has terminated in an error. 
60 CALLING SEQUENCE: 
ret ERR_CLEANUP () 
605 INPUT PARAMETERS: 
O06 NONE 
60 
608 IMPLICIT INPUTS: 
609 CLEANUP_FLAGS: indicate specific actions to do 


OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
file deaccessed if necessary 
channel window pointer cleared 


DIR_CONTEXT_DEF ; 
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DD DED DDD DDE DED. DDD DDD DDD DS PSSST SISOS 


IMPLICIT OUTPUTS: 
NONE 
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BEGIN 
BIND_COMMON; 


EXTERNAL ROUTINE 
REBLD_PRIM_FCB =: L_NORM NOVALUE, ! rebuild primary fcb from header 
BUILD-EXT FCBS : L_NORM NOVALUE, ! build extension fcb chain 
6 ALLOCATIOR_UNLOCK :~L_NORM NOVALUE, ! release allocation lock 
36 6 KILL DINDX : LLNORM NOVALUE, ! release directory index block | 
6 PMS _END : L-NORM, : end metering of current subfunction | 
38 6 CLOSE_FILE : LINORM, ' close internal file 
39 6 DEACC_QFILE : L_NORM, ' deaccess the quota file 
640 6 DEALLOCATE : LINORM, ! deallocate dynamic memory 
641 6 SEND_SYMBIONT : L_-NORM ADDRESSING_MODE (GENERAL), | 
645 6 : send file to job controller 
64 6 SWITCH VOLUME =: L_NORM, ! switch to desired volume 
644 6 RESTORE DIR : LINORM, ! restore directory context 
645 6 : LNORM, ' scan directory file 
646 6 MAKE _ ENTRY : LINORM, ' create new directory entry 
64 6 REMOVE : LINORM, ' remove a directory entry 
648 6 READ_BLOCK : LUNORM, ! read a disk bloc 
649 6 MARK _DIRTY : L NORM, ! mark disk block for write back 


K 12 

PRs 198e 3:50:12 DISKSVMGMASTERS 
write a disk block 

delete a file 


! delete a file number 


s4mDmocgk 
zwmmnmm aw 
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' return blocks to storage map 
file truncate routine 
invalidate a buffer 


' read file header 


Fl tal ek ee elt ok eh a 
ViFWr—OOOno 


PEAS ASO AAA 


checksum file header 
rebuild the windows for a file 


If a subfunction was being executed, turn off metering now. 


IF_.PMS_SUB_NEST NEQ 0 
HEN 


! We repeat the entire procedure twice if a secondary file operation was 
} in progress (indicated by non-zero saved context). 


SSS SSS SSS SFFTSS 


! Locals are declared here to prevent their scope from extending around the 
entire main loop and raising havoc with register assignment. 


C009 08 SINS SNS SS NN NN NN SAA AAA AAA AMIN 


: BBLOCK CFND_LENG 
: REF BBLOCK, ! 


-. 
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wr 


Show that cleanup is in progress. 


CLEANUP_FLAGSCCLF_CLEANUP) = 1; 
! If the ref count on the primary fcb was 
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TH], ! file name descriptor block 
address of file header 

ident area of file header 

FCB pointer 

address of the next window segment 
address of one beyond the next window 
address of directory record 

! directory cloonue yheae 

local copy of UNREC_COUNT 
Local copy of NEW_FID 
random temps 


biased in fid_to_spec, remove 


IF TESTBITSC (CLEANUP_FLAGS CCLF_PFCB_REF_UP)) 
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PRIMARY _FCB CFCBSW_REFCNT] = .PRIMARY_FCB CFCB$W_REFCNT) = 1; 

If an internal file is open, close it first. 


THEN 


If TESTBITSC (CLEANUP _FLAGSCCLF CLOSEFILE)) 
THEN CLOSE_FILE (.CURRENT_WINDO®) ; 


Invalidate the file ID cache, if necessary. 


IF TESTBITSC (CLEANUP_FLAGSCCLF_FLUSHFIDJ) 

THEN KERNEL_CALL (FLUSH_FIDCACHE); 

eaeerens the quota file, if we were in the final stages of a quota file 
enable 

i 

IF TESTBITSC (CLEANUP Acity _DEACCQFILEJ) 

THEN KERNEL_CALL (DEATC_Q 

: If there is a file header resident, it probably needs to be checksummed. 

IF .FILE_HEADER NEQ 0 

THEN CHECKSUM (.FILE_HEADER); 

Clean out the window pointer in the user's channel if necessary. 

IF TESTBITSC (CLEANUP_FLAGSCCLF_ZCHANNEL)) 

THEN KERNEL_CALL (ZERO_CHANNEL)? 

If there are unrecorded blocks allocated from the storage map, return them. 


IF (UNREC_LOCAL = .UNREC_COUNT) NEQ 0 
THEN 


ratig 

UNREC COUNT = 0; 

SUITCRV OLUME UNREC_RVN) ; 

a BLOCKS ( UNREC “LBA, .UNREC_LOCAL, DO_NOT_ERASE); 


4 there is a dangling file ID (from a partial create or header extension), 


: 3 
dispose of it. 


IF (FID_LOCAL = .NEW_FID) NEQ 0 
HEN 


BEGIN 

EW_FID = 0; 

SWITCH_VOLUME (.NEW_FID_RVN); 
DELETE FID (.FID_LOTAL); 
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Get back the primary file header of the file in process. 


0 
LE_HEADER NEQ 0 


EADER = 0; 
CURR_LCKINDX = .PRIM_LCKINDX) NEQ 0 


HEADER = READ_HEADER ((IF .CURRENT Fie NEQ 0 
THEN CURRENT_F IBLF IBSW_FIDJ 
ELSE 0), 
-PRIMARY_FCB); 


END; 


Send the file to the job contrc'ter if it is to be spooled. 


SSS NNN 


a TESTBITSC (CLEANUP_FLAGSCCLF_DOSPOOL)) 


BEGIN 


! Make sure the allocation lock is released before sending it 


SINISE NNSA AAA AA AAA AMI 


to the symbiont to avoid potential deadlock with the symbiont. 


ALLOCATION _UNLOCK (); 
SEND_SYMBIONT (,HEADER, .PRIMARY_FCB); 


Deaccess the file if requested. 


IF TESTBITSC (CLEANUP_FLAGSCCLF _DEACCESS)) 


THEN KERNEL_CALL (MAKE_DEACCESS); 
Deallocate the window block if called for. 


Ys TESTBITSC (CLEANUP_FLAGSCCLF _DELWINDOW]) 
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IF .CURRENT_WINDOW NEQ 0 
THEN 
BEGIN 
WINDOW, SEGMENT = .CURRENT_WINDOW; 


BEGIN 
NEXT SEGMENT = .WINDOW SEGMENTCWCBSL_LINKJ; 
KERNEL_CALL (DEALLOCATE, .WINDOW SEGMENT); 
WINDOW-SEGMENT = .NEXT_SEGMENT; 


N 
UNTIL .WINDOW SEGMENT EQL 0; 
CURRENT _WINDOU = 0; 


! Fix the file header back Link, if it was modified. 


On 
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. oe 
ADER 
FH2$W_BACKLINK]); 
FSETJ#2; 

ENAME), PREV_INAME, 


LENAME, FI2$S_FILENAMEXT), 
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ile deletion is called for, do it. This is either a create that 
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later on, or a real delete. 
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? - aan ie NEQ 0 

: if " entiaietdans CFCBSL_DIRINDX] NEQ 0 
: KILL_DINDX (.PRIMARY_FCB); 
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CLEANUP_FLAGSCCLF_TRUNCATE) = 0; ! no truncate necessary after a delete 
peLere. FILE (.CURRENT_FIB, HEADER) ; 


uw 


If an extend operation failed, truncate the file. 


MAMMA 


IF TESTBITSC (CLEANUP_FLAGSCCLF_ TRUNCATE) 
inte IF .HEADER NEQ 07 


MO DONOUSWN—O 


AAD 


863 


(Cd 09 9 Cd Cd Cd Cd Co OD Cd Cd Co CO CD CD 


ity = .CURRENT_FIBCFIBSL_EXSZ); ! save the data returned by EXTEND 
1 7 - CURRENT FI F1BCFIBSL “EXVBNI; i so it won't be smashed by TRUNCATE 
CURRENT FIBEr est ex8z) = 0; 

TRUNCATE (. CURRENT FIB, VHEADER, .12); 


AD 1 HEA 

CURRENT_F IBLF IBS C_EXxS?)_= = 

CURREN Tris tee TEXVBN] = hb, 
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CLEARUP_FLAG 
om CHECKSUR (HE 


FWD 0 ODNAUE WN 9 OD NAME WIN $$ O OONAUE WN SO CONOUES WN "O0O~ 


! follow buffer shuffling 


stclrINVWINDOW) = 0; ! windows were never extended, so no need 
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! Various errors leave the file control block screwed up. If needed, 
' rebuild it and its extensions from scratch. 
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| 

| 
; 878 1864 ! H 
: 879 1865 | ; 
; 880 1 4] IF TESTBITSC (CLEANUP_FLAGSCCLF_FIXFCB)) 3 
; 881 186 AND .HEADER NEG : 
; 88 1868 T | : 
: 88 1393 4 BEGIN 3 
; 884 1870 4 Fy 
; tH 130) : REBLD_PRIM_FCB (.PRIMARY_FCB, .HEADER); : 
: 887 1873 4 — BUILD_EXT_FCBS (HEADER): | 
F4 88 1874 4 F 
; 889 1875 END; : 
; 890 1876 ; : 
3 a3) 144 } Cleanup any cathedral windows which have broken. : 
: 89 1879 ; 
: B3¢ ioe IF TESTBITSC (CLEANUP_FLAGSCCLF_REMAP]) THEN REMAP_FILE (); ; 
; 896 1a56 ! Do directory operation cleanups. We could have entered a new file, removed ; 
; 897 188 i an old one, or both, or done a supersede. A supersede is a replacement of ; 
; 898 1884 ! the FID for the same name, type, and version. : 
; 899 1885 3: ° 
; 900 1886 H : 
: 901 1887 DIR_FLAGS = .CLEANUP_F tere : 
; 902 1888 CLEANUP_FLAGSCCLF_SUPERSEDE) = 0; “ 
; 903 1889 CLEANUP_FLAGSCCLF_REENTERJ = 0; ° 
; 904 1890 CLEANUP_FLAGSCCLF_REMOVE) = 0; : 
; 905 1891 3 | 3 
; 906 1336 IF .DIR of Sere SUPERSEDE) 3 
; 907 189 OR .DIR_FLAGSCCLF_REENTER) 3 
; 908 1894 OR .DIR_FLAGSCCLF_REMOVE) : 
: 909 1895 3 THEN : 
; 910 1896 4 BEGIN 3 
: 4a 44 2 SWITCH VOLUME (.CURRENT_FIBCFIB$W_DID_RVN)); : 
3; 915 1899 4 ! Buffer pool thrashing may have kicked out the directory block we need. | : 
: 914 1900 4 ! re-read it and recompute the buffer pointers. : 
; 915 1901 4! ‘ 
: 916 1902 4 | ‘ 
: 917 1903 4 IF .DIR_ENTRY NEQ 0 : 
: 4 13ve ? THEN RESTORE_DIR (DIR_CONTEXT); ; 
; 920 1906 4! If a eirectory entry needs to be removed, do so. Pointers are all set | : 
: 3! 1907 4 ! up for the REMOVE routine. 3 
 & ¢ 1908 4! 3 
s 92 1909 4 3 
; 924 1910 4 IF .DIR_FLAGS re? REMOVE] : 
: 925 1911 4 THEN REMOVE ( : 
; 358 1316 4 : 
3; 927 1915 4 ! If a directory entry needs to be re-entered, do so. If the entry was : 
: 928 1914 4 ! removed theough an auto-purge, we need to rescan to the point o | 3 
3 4 4 4 ! removal because a directory shuffle | have invalidated the : : 
; 930 1916 4 ! pointers. Construct a name descriptor from the saved name and version : 
3 33: 1917 4 ! and call the enter routine. 3 
a 4 1918 4! : 
3 9 1919 4 : 
3 934 1920 4 IF .DIR_FLAGSCCLF_REENTER] 3 

| 
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1228687138 99:98:43 DISKSVMSMASTER:CF11X.SRCICLENUP.B32; 1 ’ 8S v0é 
; 935 1921 4 THEN 
; 936 19 ¢ BEGIN : 
; 937 19 CHSFILL (0, FND LENGTH, NAME_DESC); | : 
; 938 1904 NAME _DESCCFND_ COUNT] = .PR VINAME LO); | ae 
; 939 1925 NAME_DESCCFND_STRING) = PREV_NAME(1]; $ 
; 940 19 § 5 NAME-DESCLFND VERSION] = .PREV_VERSION; : 4 
: 941 19 : IF .BIR_FLAGSCCLF_SUPERSEDE) 24 
; 94 1929 6 BEGIN - 
> 944 1930 6 LAST_ENTRYCOJ = 0; | He 
: 945 1931 6 DIR SCAN (NAME_DESC, 0, 0, 0, 0, 0, =1); | 4 
: 9 193¢ : CHSROVE (FIDSCILENGTH, SUPER_FI6, CURRENT_FIBCFIBSW_FIDI); | | 
; 948 1934 5 KE ENTRY (NAME DESC : CURRENT F 1B) ; | : 
; 949 1935 2 CLEARUP_FLAGSCCLF_REMOVE) = 0; | He 
: 950 1936 WRITE_BCOCK (.DIR-BUFFER); . 4 
>; 951 1937 4 ND; : 4 
: 226 1938 4 : : : 4 
; 95 1939 G!A euperaces cleanup consists simply of replacing the superseded file ID | a 
; 9546 1940 4 ! in the directory record. Note that the supersede bit could also be set : | 
; 955 1941 4 ! by a create/auto-purge, which also sets the remove and enter bits, and : 
; 956 1306 4 ! is handled above. | 
; 957 1943 4} 
; 958 1944 4 
; 959 1945 4 IF .DIR_FLAGSCCLF SUPERSEDE) 
; 960 1946 4 AND NOT DIR_FLAGSECLE RECENTER 
: 961 1947 4 AND NOT .DIR-FLAGSCCLF REMOVE J 
H +4 1948 4 THEN 
; 96 1949 5 BEGIN 
3; 964 1950 2 DIR_VERSIONCDIR$W_VERSION] = .PREV_VERSION: 
3 965 1951 CHSMOVE (FIBS$S_ FID, SUPER_FID, DIR-VERSIONLDIRSW_FIDJ); 
; 966 1996 5 MARK_DIRTY (.DIR_BUFFER); 
; 967 195 5 END 
: 968 1954 5 
; 969 1955 5 | 
s 44 1328 3 END; ! end of directory cleanup processing | 
: 97 1958 ' Copy the saved context, if any back into the primary context and repeat | 
3; 97 1959 !' the cleanup. 
3: 974 1960 : 
s We 1961 
: 97 1966 IF .CONTEXT SAVE EQL 0 THEN EXITLOOP; 
: 97 196 CHSMOVE (CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START); | 
: 978 1964 3 CONTEXT_SAVE = 0; 
3; 979 1965 : 
; 980 1208 END; ! end of major loap | 
; 981 196 
: 98 1968 RETURN 1; 
; 98 1969 
; «984 1970 1 END; ! end of routine ERR_CLEANUP 


RIM_FCB, BUILD_EXT_FCBS 
ION“UNLOCK 
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1hese -1984 00:02:25 VAX-11 Bliss-32 V4.0-742 Page 24. 
10-8ep-1984 90:95:93 DISKSVMSMASTER:CF11X.SRCICLENUP.B32; 1 . (3 
04 AA D4 000A8 CLRL 4 (BASE) 3 1757) : 
16 AA 18 AA 09 OA MOVL  24(BASE), 20(BASE) + 1758. ; 
19 1 8 BEQL iss : 3 
00 BE DD 0008 PUSHL  a@0(SP) + 1763) ; 
69 05 0008 TSTL (R9) : 1760. ; 
08 13 0008 EQL =s«-:10$ : | ; 
50 69 04 Ci 00089 ADDL3 #4, (RO), RO ; 1761 ; 
9 dD 08D PUSHL RO : ; 
9 11 000BF BRB 11$ : ; 
D4 000C1 10$:  CLRL  <-(SP) : ; 
00006 CF F 00¢3 11$: CALLS #2, READ_HEADER + 1760. ; 
56 D 990¢ OVL RO. HEAD : ; 
1 6A E CB 12$: BCC #2. (BASE), 13$ + 1769 ; 
00006 CF 00 FB OOOCF CALLS #0, ALLOCATION_UNLOCK + 1777 ; 
00 BE DD 00004 PUSHL a0(SP) : 1778 ; 
56 DD 00007 PUSHL HEADER : ; 
000000006 00 02 FB 00009 CALLS #2, SEND_SYMBIONT : 
0 6A 10 €5 OO0EO 13$ BBCC #16, (BASE), 14$ : 1784 
0000v CF 00 Fe 000E4 CALLS #0, MAKE_DEACCESS + 1785 
1A €5 OOOE9 148 BBCC web (BASE), 16$ : 1790 
OC AA D3 000ED TSTL 12(BASE) : 1792 
17 13 000FO BEQL 16$ : 
OC AA 00 000F2 MOVL 12(BASE), WINDOW SEGMENT + 1795 
20 Ag DO OOOF6 15$ MOVL § 32(WINDOW_SEGMENT), NEXT_SEGMENT : 1798 
52 DD OOOFA PUSHL WINDOW SEGMENT : 1799 
01 FB OOOFC CALLS #1, DEALLOCATE ; 
53 D0 00101 MOVL NEXT_SEGHENT, WINDOW_ SEGMENT + 1800 
FO 12 00104 BNEQ 15$ : 1802 
0C AA D4 00106 CLRL  12(BASE) : 1803 
1E €5 00109 16$:  BBCC #30, (BASE), 17$ : 1809 
56 D3 0010p TSTL HEADER : 1810 
25 13 0010F BEQL 1 3 
06 3 00111 MOVC3 #6, 48(BASE), 66(HEADER) + 1813 
66 9A 00117 MOVZBL (HEADER), RO : 1814 
6640 3 OO11A MOVAW (HEADER)(ROJ, IDENT_AREA ; 
14 28 0011 MOVC3 #20, (R11), CIDENT AREA) + 1816 
3¢ 8 001 MOVC3 #60, 20(R11), 54(IBENT_AREA) > 1819 
6 DD 001 PUSHL HEADE + 1820 
01 FB 901 A CALLS #1, CHECKSUM : 
56 DD O012F PUSHL HEADER > 1821 
01 Fe 00131 CALLS #1, MARK_DIRTY : 
15 €5 00136 178:  BBCC #21, (BASE), 19$ : 1828 
36 D5 0013A TSTL HEADER : 1829 
20 13 0013¢ BEQL 19% : 
00 BE bd 001 E MOVL  a0(SP), RO > 1832 
0D 1 14 BEQL : 
0080 4=CO «(DS 00144 TSTL 176(RO) + 1834 
97 13 00148 BEQL 18S ; 
0 DD O014A PUSHL > 1836 
1 FB 0014C CALLS #1, KILL_DINDX : 
4 8A 00151 18%:  BICB2 #4, 2(BASE) : 1838 
6 DD 00155 PUSHL HEADER > 1839 
9 DD 00157 PUSHL  (R9) : 
: FB 00159 CALLS ae DELETE FILE ; 
€5 001 5 19$:  BBCC #18, (BASES, 20$ : 
56 05 0016 TSTL HEADER : 
48 1 164 BEQL : 
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; 18 3 gi” ! ROUTINE MAKE_DEACCESS : L_NORM = 

; 1035 i§ 1 !44 

3 7 0 1! 

; 13 i 1 ! FUNCTIONAL DESCRIPTION: 

3 324 0 § : } This routine performs the machinery for deaccessing a file. 

: 1041 025 1 ! CALLING SEQUENCE: 

3 106 0 $ 1! MAKE_DEACCESS () 

; pez 8 INPUT PARAMETERS 

H 1028 8 g 1! NONE 

3; 1046 030 1! 

3: 1047 031 1 =! IMPLICIT INPUTS: 

3; 1048 0 ¢ 1! PRIMARY_FCB: FCB of file 

; 1049 0 1} CURRENT_WINDOW: window of file 

3 1920 : : CURRENT_VCB: VCB of volume in process 

; 1028 036 1 ! OUTPUT PARAMETERS: 

; 105 2037 1! NONE 

3; 1054 038 1! 

3; 1055 039 1 =! IMPLICIT OUTPUTS: 

3; 1056 040 1! NONE 

: 1057 041 1! 

3; 1058 ok 1 ! ROUTINE VALUE: 

3; 1059 043 1! NONE 

3; 1060 044 1! 

3: 1061 045 1 ! SIDE EFFECTS: 

3 1008 046 1! file deaccessed 

3: 106 047 1! 

3: 1064 2048 1 !-- 

3: 1065 Span 1 

: 1066 050 BEGIN 

3: 1067 2051 

: 1068 Ba6 BIND_ COMMON; 

3; 1069 05 

: 1070 054 LOCAL 

3: 1071 055 : REF BBLOCK, ! Local for primary fcb. 

: 107% 056 LCKMODE, ' Lock mode for access lock. 

; 107 Spee WINDOW_SEGMENT : REF BBLOCK, ! address of the next window segment 
3 1074 058 DUMMY; ! dummy local to receive REMQUE 
: 1075 059 

3 1976 060 EXTERNAL 

3; 107 061 PMS$GL_OPEN : ADDRESSING_MODE (ABSOLUTE); 
3; 1078 068 ' system count of currently open files 
; 1079 06 

: 1080 064 EXTERNAL ROUTINE 

: 1081 065 DEQ LOCK L_NORM, ' dequeue a lock 

3 Oss 066 CONV_ACCLOCK : LINORM ' Convert file access lock. 

3 ez Oe LOCK_MODE : LTJSB_1ARG; ! Calculate access lock mode. 

: H's 5 FCB = .PRIMARY_FCB; 

: 1087 07 ! Unlink the window from the FCB. Clear the applicable access conditions 
:1 07 


wn—o 


in the FCB. 
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WINDOW SEGMENT = .CURRENT_WINDOW; 


BEGIN 
IF .WINDOW SEGMENTCWCBSL_WLFL) wea 0 THEN REMQUE (.WINDOW_SEGMENT, DUMMY); 
WINDOW SEGMENT = .WINDOW-SEGMENTCWCBSL_LINKI; 


EAD | 
UNTIL .WINDOW_SEGMENT EQL 0; 


COCoCO C908 INNIS 


VIFSWN—OOONOUSE 


con -CURRENT_WINDOW CWCBSV_NOACCLOCK) 


po lofolololola7 OSS 


BEGIN 
IF . CURRENT WINDOWCWCBSV_NOREAD] 
THEN FCBCFCBSV_EXCLJ = 0; 


IF_.CURRENT_ WINDOWCLWCBSV_NOTRUNC) 
THEN FCBCFCBSW_TCNT) = .FCBCFCBSW_TCNT] - 1; 


IF _ .CURRENT WINDOWCWCBSV_NOWRITE) 
THEN FCBCFCBSW_LCNT) = .FCBCFCBSW_LCNTJ - 1; 


FCB CFCBSW_ACNT] = .FCB CFCBSW_ACNT]) - 1; 
END; ! of normal (not NOLOCK) deaccess. 
FCBCFCBSW_REFCNT] = .FCBCFCBSW_REFCNT] = 1; 
For a write access, bump down the writer count. If this is the 


last write, and the file is the index file or the aterage map, clear 


t 

i 

the epereer tate flag in the VCB. If there's a cache lock being held 
i 


for this file, release it. 


IF_.CURRENT_WINDOWCWCBSV_WRITEJ 
THEN 
BEGIN 
IF NOT «CURRENT WINDOW CWwCBSV_NOACCLOCK) 
FCBLFCBSW_WCNT) = .FCBCFCBSW_WCNT) - 1; 


IF .FCBCFCBSW_WCNT) EQL 0 
OR (.FCB CFCBSW_REFCNT] EQL 0 AND .CURRENT_WINDOW CWCBSV_WRITE]) 


WWWWARIPOPIPINPUNIPUNINUNYD 2 2 SS SOO o 


BEGIN 

IF _.FCBCFCBSW Fae NUM} EQL_1 

THEN CURRENT QCB Vcesy waite IF) 0; 
FCB$ J EQL 


IF . Q At NUM 
THEN CURRENT_VCBLOCBSV_WRITE_SM) = 0; 
FCBEFCBSL_CACHELKID] NEQ 0 


" 

IF .FCBCFCBSB_FID_NMX) EQL 0 
THEN 
| 


If . 
THEN 
BEGIN 
DEQ_LOCK (.FCBCFCBSL_CACHELKID)); 


ee dd ot 8 = = a = = 2 as = 
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BELLE EW 
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CLE 


IF .FCB CFCBSW_ACNT) EQL 0 
THEN 


LCKMODE = LCKSK_NLMODE 
ELSE 


ACCTL = 0; 

IF .FCB CECBSW_WCNT) NEQ 0 

THEN ACCTL = .ACCTL + FIBSM_WRITE; 
IF .FCB CFCBSW_LCNT) NEQ 0 

THEN ACCTL = .ACCTL + FIBSM_NOWRITE; 


; LCKMODE = LOCK_MODE (.ACCTL); 
1 


END; 
1 
i 
dequeue the lock if this is the last reference. 
IF .LCKMODE<0,8> NEQ .FCB_CFCBSB_ACCLKMODE] 


yor .FCB CFECBSW_REFCNT) EQL 0 
IF NOT CONV_ACCLOCK (.LCKMODE, .FCB) 


SS SONOU RUN OD oan WN SO DONOUS WN O0O~ 


PMSS$GL_OPEN = .PMS$GL_OPEN 
CURRE 


RETURN 1; 
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000C 00000 MAKE_DEACCESS: 
- WORD 


N 
BUG_CHECK (XQPERR, ‘deaccess conversion failed’); 
: mete: We now have a file control block with a possible zero access count 
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If the new access lock mode lock for this fcb is different (lower) 
than the current lock, convert it. The conversion routine will also 


n the FCB List. This gets dealt with by the general cleanup. 


OPEN - 1; ' bump down count of open files 
NT_VCBLVCB$W_TRANS) = .CURRENT_VCBCVCB$W_TRANS] - 1; 


END; ! end of routine MAKE_DEACCESS 


PMSS$GL_OPEN, DEQ LOCK 
CONV_ACCLOCK, LOCK_MODE 
BUGS$—XQPERR 


Save R2,R3 
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OE 12 Bebe BNEQ 17$ ; 
06 BB O00C6 16$: PUSHR #*M<R1,R2> 3: 2165 
0000G CF 9 fe 00c8 CALLS 40 CONV_ACCLOCK : 
04 E BRCe BLBS RO, 17$ : 
FEFF 000 BUGW : 2167 
0000* BRnpe » WORD <BUG$_XQPERR! 4> : 
00000000G 9F D7 000D4 17$: DECL a#PMS$GL_OPEN : 2173 
50 98 AA HY 44 MOVL -104(BASE), RO 3 2174 
0c AO 8B OODE DECW 12(R0O) : 
50 01 DO 000E1 MOVL #1, RO 3: 2176 
04 000E4 RET : 2178 
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ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


FE 
CB 


BEGIN 


MAP 
START_FCB 


LOCAL 

FCB 

eat Fe 

DUMMY; 
BASE_REGISTER; 
EXTERNAL ROUTINE 


posensng 


RaPOPIPOPOPONONOPDPDPPOPINONPINYPONPONIDNININIDPYD) 2 9 9 9 


ee ee ee ee ee ee ee i ee ee ee ee ee ee eet 


2 list an 

2 

3 

2 IF .START_FCB E 
2 FCB = .START_FC 
2 START_FCBCFCB$L 


OUTPUT PARAMETERS: 
NONE 


i IMPLICIT OUTPUTS: 
NONE 


DEALLOCATE 


a 0 
BEF CB 
~EXFCB 


GLOBAL ROUTINE DEL_EXTFCB (START_FCB) : 


FUNCTIONAL DESCRIPTION: 


This routine removes and deallocates all extension FCB's, if any, 
Linked to the indicated FCB. 


CALLING SEQUENCE: 
DEL_EXTFCB (ARG1) 


INPUT PARAMETERS: 
A address of primary FCB or 0 


IMPLICIT INPUTS: 
NONE 


s deallocated 


: REF BBLOCK; 


: REF BBLOCK, 
: REF BBLOCK, 
: REF BBLOCK, 


: L NORM; 


THEN ee ryan 1; 
st EXECS ; 
= 0; 


FCB argument 


running FCB pointer 

next extension FCB 

pointer to chase for VCB 
dummy local to receive REMQUE 


! deallocate dynamic memory 


for null pointers, find the first extension FCB. Follow the extension 
remove and deallocate the extension FCB's, cleaning out the pointers 


q 
i 
' on the way. For each FCB removed, we must find the VCB (by chasing around the 
FCB List) and decrement the transaction count. 
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vOe~000 e-Sepm19be 19:90:12 DISKSUMSRAS TER: 


! poi 

ABD = .BBLOCK C.JO_PACKETCIRPS$L_SVAPTE], alBsL_DESCRIPT); 

ABDCABD$C_WINDOW, ABDSW Cont = 4; 

-ABDCABDST_WINDOW, ABDSQ_TEXT] + ABDCABDSC_WINDOW, ABDS$W_TEXT] + 1 = 0; 
BEGIN 


! The FILCNT quota is credited if a WCB has not yet been allocated or 


H , Ue 34 ! ROUTINE ZERO_CHANNEL : L_NORM = 

3; 127 § 1 !4¢ 

3; 127 60 1! 

3 : 9] } FUNCTIONAL DESCRIPTION: 

; 1281 8 1! This routine zeroes out the window pointer being returned to 3 
3: 1 S¢ 64 1! the user for his channel control block. It also credits one to the : 
: 128 65 1! user's open file quota, except for the case of a shared window. $ 
8 : Re ? : This routine must be executed in kernel mode. : 
3: 1 B6 68 1 ! CALLING SEQUENCE: ; 
; 128 69 1! ZERO_CHANNEL () : 
; 1288 7 1? $ 
3; 1289 71 #1 =! INPUT PARAMETERS: 3 
; 1290 i 1! NONE 

: 1291 +e eG 

3 1 35 74 1°! IMPLICIT INPUTS: 

3; 129 ig BOR IO_PACKET: 1/0 packet of request 

3; 1294 276 1! 

3 1295 2277 1°! OUTPUT PARAMETERS: 

3: 1296 2e78 1! NONE 

3; 1297 $52) 1! 

: 1298 280 1 ! IMPLICIT OUTPUTS: 

: 1299 2281 1! NONE 

: 1300 ssee 1! 

3; 1301 228 1 ! ROUTINE VALUE: 

3 1a06 2284 1! NONE 

; 130 2285 1! 

3 1304 2286 1 ! SIDE EFFECTS: 

3; 1305 2287 1! channel window pointer cleared, file quota bumped unless shared window 

3: 1306 2288 1! 

3; 1307 2289 1 !-- 

3; 1308 2290 1 

3; 1309 2291 2 BEGIN 

: 1310 $56 2 

3 1311 $59 2 LOCAL 

3 1312 294 2 : REF BBLOCKVECTOR C ABDSC_LENGTHI, 

3; 1313 2295 § ' buffer descriptors 

3 1314 2296 J18 : REF BBLOCK, ! Job information block address 

: 13? $595 2 PCB : REF BBLOCK; ' address of user process control block 

3: 1317 $38 EXTERNAL 

: 138 00 SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); 

: 1319 301 ' system PCB vector 

3; 1320 308 

: 1321 30 BIND_COMMON; 

: 1356 304 . 

3 132 305 nter to buffer descriptors 

3 13 5) 

3s 13 0 

3 3 

8 i 

: 13 

3 13 

: 13 


—OOONOus 
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14 | 
16-Sep-1984 VAX=11 BLiss-32 V4.0-742 7 ‘ 
14- ~8ep-19 4 99: 95: $3 DISKSVMSMASTER:CF11X.SRCICLENUP.832; Y ae 14 


3 } ¢ \$ ! if the SHRWCB bit is not set in the wCB. 
:1 16 IF .CURRENT_WINDOW EQL 0 
> 1335 1 THEN 1 
: 18 ELSE NOT .CURRENT_WINDOWCWCBSV_SHRWCB) 
; 1338 0 THEN 
: 1339 1 BEGIN 
: 1340 2 PCB = .SCHS$GL bape eyESS: . (10_PACKETCIRPSL_P1D])<0,16>); 
> 1341 JIB = :PCBCPCE 9 
:1 é 4 JIBCJ1aSW FILENTT = JIBCJIBSW_FILCNT] + 1; 
3s 3 5 END; 
3 1544 $ 
: 1345 RETURN 1; 
3 1346 : 8 
3; 1347 2329 1 END; ! end of routine ZERO_CHANNEL 
.EXTRN SCHSGL_PCBVEC 
0000 00000 ZERO_CHANNEL: | 
«WORD Save nothing 2257 
50 90 AA DO 00002 MOVL =-112(BASE), RO 2306 
51 2C BO DO 00006 MOVL @44(RO), ABD 
02. Al 04 BO 0000A MOVW #4, 2(ABD) 307 
50 61 3C O000E MOVZWL (ABD), RO 308 
01 A140 9F 00011 PUSHAB 1(ABDSCROJ 
9E D4 00015 CLRL a(SP)+ 
50 OC AA 09 00017 MOVL  12(BASE), RO 
05 13 0001B BEQL 1$ 
1D 0B Ad 03 €0 0001D BBS #3, 11(RO), 2 
51 000000006 9F 00 90022 1$ MOVL § a#SCHS$GL_PCBVEC, R1 2322 
50 AA D0 000 MOVL <-112(BASE), RO 
50 0c cO 0002D ADDL2 #12, RO 
50 60 3¢ 00030 MOVZWL (ROS, RO 
50 6140 DO 00033 MOVL  (R1)€ROJ, PCB 
50 0080 CO DO 00037 MOVL 128(PCB). JIB 2323 
30 AO B6 0003C INCW  48(JIB) 2324 
50 01 DO 0003F 2$ MOVL #1, RO 2327 
04 00042 RET 2329 


; Routine Size: 67 bytes, Routine Base: S$CODE$ + 0570 
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eeepc 
GLOBAL ROUTINE NUKE_HEAD_FCB (FCB) : L_NORM NOVALUE = 
lee 
Functional Description: 
Srattnten Gbata” tata gfPEN 


that need cheeging up, remove it from the fcb 
that is where it is), and deallocate it. 


BEGIN 
MAP 
FCB : REF BBLOCK; 
BASE _REGISTER; 
EXTERNAL ROUTINE 
ACL_DELETEA 
CONV_ACCLOCK L_NORM, 
DEALCOCATE “NORM; 
LOCAL 
DUMMY ; 


A -FCB CFCBSB_TYPE] NEQ DYNSC_FCB 
BUG_CHECK (NOTFCBFCB, ‘not fcb"); 

REMQUE (.FCB, DUMMY); 

iv gROLORK CFCB CFCBSR_ORBJ, ORBSV_ACL_QUEUE) 
ACL_DELETEACL (FCB CFCBSL_ACLFLJ, 0); 

if NOT CONV_ACCLOCK (0, .FCB) 


N 
BUG_CHECK (XQPERR, ‘Unexpected lock manager status'); 


DEALLOCATE (.FCB); 


END; ! of routine NUKE_HEAD_FCB 

-EXTRN 
0000 00000 -ENTRY 

50 04 aC 00 00002 OVL 

07 OA Ad 91 it CMPB 

04 13 QOOOA BEQL 

ere Babe BUGW 

0000* 00 3 . WORD 
50 04 C OF 00010 1$: REMQUE 


1 93:98:93 DES SumGhaSteRcch tix. sreacLenup.e32:9°% (100 


of possible extension fcbs, 
assumed), clean up the things 
ist (we assume 


a - 7 , 


| 
| 


ACL_DELETEACL 
NUKE_HEAD_FCB, Save nothing ; 2330 
CB, RO 3 2358 
10(RO), #7 : 
1$ 3 
: 2360 
<BUGS_NOTF CBFCB!4> : 
aFCB, DUMMY 3: 2362 


J 


o 
ie * 


a SSS = , 


Br19RG 12:80:12 — DISKSVMGHASTER CLF Tix. SREICLENUP.B32; 179" (10) | 


| 
50 06 ac D 1 MOVL B, _R 1 2364 
10 63 AO Qi p0 18 3BC 4 98cR0), 2$ : 
E 04 0001D CLAL ite : 2366 
7E 04 Ac 00000080 Bt C1 OOOTF ADDL3 =(SP) : 
00006 CF 2 FB 00028 CALLS A} a te CBELETEACL ; 
04 AC DD 6 2$: PUSHL F a} ; 2368 
7E D4 CLRL (SP) : 
00006 CF Q Fe 0 CALLS W2, CONV_ACCLOCK : 
04 E8 000 BLBS RO. 3$ : 
FEFF OO03A BUGW + 2370 
0000* 0003¢ «WORD <BUGS$_XQPERR!4> : 
04 AC DD O003E 38: PUSHL FC : 2372) 
00006 CF 01 FB 00041 CALLS #1, DEALLOCATE ; 
04 00046 RET + 2374) 


; Routine Size: 71 bytes, Routine Base: SCODE$ + 0583 
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LOCK_CODE; 
GLOBAL ROUTINE SET_DIRINDX (FCB) : L_JSB_1ARG = 


lee 


i Functional Description: 


i This routine tests for the presence of a directory index, and 
FCBSV_DIR fiag accordingly at SCHED ipl, so at t 
the directory index handling routine which 


! 

] 

t 

' set the 
' interlock with 
! may be trying to toss 

which also runs at sched ipl. 
1 

1 

1 

i] 

' 


i ROUTINE VALUE : 
false - otherwise 


BEGIN 
MAP 

FCB : REF BBLOCK; 
LOCAL 

STATUS : INITIAL (0); 


SET_IPL (IPLS$_SCHED); 
If _.FCB CFCBSL_DIRINDX] NEQ 0 
THEN 


BEGIN 
FCB CFCBSV_DIR] = 1; 
STATUS = ,STATUS + 1; 


SET_IPL (0); 
- STATUS 
END; 


51 

12 03 

00B0 860 
wef 
1 0 

; 


4 


it out, and the search_fcb routine, 


rue - if this now a directory fcb eligible for replacement 


! of routine SET_DIRINDX 


«PSECT 
D4 00000 wean te 
DA 0000 MTPR 
D5 0000 TSTL 
1 009 BEQL 
88 Bee B1SB2 
D6 OF INCL 
DA 00011 18: MTPR 
DO 00014 MOVL 


1f$e-198s 09:02:28 


Pa 
JCLENUP.832;1 


SLOCKEDC1$,NOWRT,2 


; Size: 
3; Run Time: 219, 
3; Elapsed Time: Fe 
3 Lines/CPU Min: 834 
3 Lexemes/CPU-Min: 54610 
HY poe | Used: 
s 3 


371 pages 
; Compi eo” 


tion Complete 


1554 code + 0 data bytes 
1:19.3 


14 
C P 1b-5¢ -1984 00:02: VAX-11 Bliss-32 V4.0-7 
voe~b00 10-38b-1982 99:96:43 BiScbunGuaSfenccetigss 
05 00017 RSB 
; Routine Size: 24 bytes, Routine Base: S$LOCKEDC1$ + 0000 
3; 14 £1$ 1 
3 14 417 1 ! Note that just ple od to the SET_DIRINDX routine the psects were 
3 14 ret 1 ! changed to the locked psect becduse the SET_DIRINDX routine must 
; 1439 419 1! be locked. Any routines added at this point will be locked also, 
; rer re : } so unless they need to be locked, put them prior to SET_DIRINDX. 
; 144g 4 é er 
3 144 4 1 END 
3 14464 424 0 ELUDOM 
H PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 1530 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
; S$LOCKEDC1$ 24 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: wnoeee== Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 95 0 1000 00:02.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISG:CLENUP/OBJ=OBJ$:CLENUP MSRC$:CLENUP/UPDATE=(ENHS$: CLENUP) 
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